program define quine
	version 11.2
	tempname d1 d2 d3 d4 d5 d6 d7 d8 d9 d10 /* 
	*/ d11 d12 d13 d14 d15 d16 d17 d18 d19 /* 
	*/ d20 d21 d22 d23 d24 d25 d26 d27 lines
	local d1 112 114 111 103 114 97 109 30 100 101 102 105 110 101 30 113 117 105 110 101 
	
	local d2 30 30 30 30 118 101 114 115 105 111 110 30 49 49 46 50
	
	local d3 30 30 30 30 116 101 109 112 110 97 109 101 30 100 49 30 100 50 30 100 51 30 100 52 30 100 53 30 100 54 30 100 55 30 100 56 30 100 57 30 100 49 48 30 47 42
	
	local d4 30 30 30 30 42 47 30 100 49 49 30 100 49 50 30 100 49 51 30 100 49 52 30 100 49 53 30 100 49 54 30 100 49 55 30 100 49 56 30 100 49 57 30 47 42 	

	local d5 30 30 30 30 42 47 30 100 50 48 30 100 50 49 30 100 50 50 30 100 50 51 30 100 50 52 30 100 50 53 30 100 50 54 30 100 50 55 30 108 105 110 101 115  	
	
	local d6 30 30 30 30 102 111 114 118 97 108 117 101 115 30 105 61 49 47 53 30 123
	
	local d7 30 30 30 30 30 30 30 30 108 111 99 97 108 30 108 105 110 101 115
	
	local d8 30 30 30 30 30 30 30 30 102 111 114 101 97 99 104 30 118 30 111 102 30 108 111 99 97 108 30 100 96 105 39 30 123 	
	
	local d9 30 30 30 30 30 30 30 30 30 30 30 30 108 111 99 97 108 30 108 105 110 101 115 30 96 108 105 110 101 115 39 30 99 104 97 114 40 96 118 39 41  
	
	local d10 30 30 30 30 30 30 30 30 125
	
	local d11 30 30 30 30 30 30 30 30 100 105 115 112 30 96 108 105 110 101 115 39
	
	local d12 30 30 30 30 125
	
	local d13 30 30 30 30 102 111 114 118 97 108 117 101 115 30 105 61 49 47 50 55 30 123
	
	local d14 30 30 30 30 30 30 30 30 100 105 115 112 30 34 30 30 30 30 108 111 99 97 108 30 34 30 34 100 34 96 105 39 30 34 30 34 30 95 99 111 110 116 105 110 117 101 
	
	local d15 30 30 30 30 30 30 30 30 102 111 114 101 97 99 104 30 118 30 111 102 30 108 111 99 97 108 30 100 96 105 39 30 123 	
	
	local d16 30 30 30 30 30 30 30 30 30 30 30 30 100 105 115 112 30 96 118 39 30 95 99 111 110 116 105 110 117 101 30 95 115 107 105 112 40 49 41
	
	local d17 30 30 30 30 30 30 30 30 125
	
	local d18 30 30 30 30 30 30 30 30 100 105 115 112 30 95 110 101 119 108 105 110 101
	
	local d19 30 30 30 30 125
	
	local d20 30 30 30 30 102 111 114 118 97 108 117 101 115 30 105 61 54 47 50 55 30 123
	
	local d21 30 30 30 30 30 30 30 30 108 111 99 97 108 30 108 105 110 101 115
	
	local d22 30 30 30 30 30 30 30 30 102 111 114 101 97 99 104 30 118 30 111 102 30 108 111 99 97 108 30 100 96 105 39 30 123 	
	
	local d23 30 30 30 30 30 30 30 30 30 30 30 30 108 111 99 97 108 30 108 105 110 101 115 30 96 108 105 110 101 115 39 30 99 104 97 114 40 96 118 39 41  
	
	local d24 30 30 30 30 30 30 30 30 125
	
	local d25 30 30 30 30 30 30 30 30 100 105 115 112 30 96 108 105 110 101 115 39
	
	local d26 30 30 30 30 125
	
	local d27 101 110 100
	
	forvalues i=1/5 {
		local lines
		foreach v of local d`i' {
			local lines `lines' char(`v')
		}
		disp `lines'
	}
	forvalues i=1/27 {
		disp "    local " "d"`i' " " _continue
		foreach v of local d`i' {
			disp `v' _continue _skip(1)
		}
		disp _newline
	}
	forvalues i=6/27 {
		local lines 
		foreach v of local d`i' {
			local lines `lines' char(`v')
		}
		disp `lines'
	}
end
